home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_c / cuj0696.zip / DWYER.ZIP / SPECTRAL.TST / XDOT.CX < prev    next >
Text File  |  1996-02-29  |  472b  |  19 lines
  1. /* ============ */
  2. /* XdotProd.cx    */
  3. /* ============ */
  4. #include <xtendefs.h>
  5. /* ============================================================ */
  6. /* XdotProd - returns dot product of extended n-vectors a and b */
  7. /* ============================================================ */
  8. void
  9. XdotProd(short n, USHORT *a, USHORT *b, USHORT *c)
  10. {
  11.     XCLEAR(c);
  12.     for ( ; n > 0; --n)
  13.     {
  14.     USHORT    P[NE];
  15.     XMULT(a + XVL(n), b + XVL(n), P);
  16.     XRADD(c, P);
  17.     }
  18. }
  19.